1 Public Class frmTegaton
2
3     Private Sub frmTegaton_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
4         If Keys.Escape Then
5             Me.Close()
6         End If
7     End Sub
8
9     Private Sub frmTegaton_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
10         username.Text =
"Pro Scheduler is running on " & Environment.UserName & "-PC"
11     End Sub
12
13     Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
14         Process.Start(
"https://www.facebook.com/codeprojectsdotorg/")
15     End Sub
16
17     Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
18         Process.Start(
"http://code-projects.org/")
19     End Sub
20
21     Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
22         Process.Start(
"http://code-projects.org/")
23     End Sub
24 End Class


Gõ tìm kiếm nhanh...